home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / c / snippet.exe / ABSDISK.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-04-13  |  2.0 KB  |  69 lines
  1.         page    55, 132
  2.  
  3. ;
  4. ;  ABSDISK.ASM
  5. ;
  6. ;  Originally published as part of The MicroFirm Function Library
  7. ;  This version released to the public domain by the author, Bob Stout
  8. ;
  9. ;  Requires MASM 5.1 or later
  10. ;
  11.  
  12. %       .MODEL  memodel,C               ;Add model support via
  13.                                         ;command line macro,
  14.                                         ;e.g. MASM /Dmemodel=LARGE
  15.         extrn _osmajor:BYTE
  16.  
  17.         .DATA
  18. start   dw      ?
  19. fill    dw      0
  20. number  dw      ?
  21. buf     dw      ?,?
  22.  
  23.         .CODE
  24. absdisk PROC USES SI DI, func:BYTE, drive:WORD, num_sec:WORD, start_sec:WORD, buffer:PTR
  25.         mov     AX,drive        ;Get drive number in AL
  26.         mov     AH,_osmajor     ;Load OS version in AH
  27.         mov     CX,num_sec      ;Set up regs for DOS 3 call
  28.         mov     DX,start_sec
  29.     IF  @DataSize
  30.         push    DS              ;Save DS in L & C models
  31.         lds     BX,buffer
  32.     ELSE
  33.         mov     BX,buffer
  34.     ENDIF
  35.         cmp     AH,4            ;DOS 4+?
  36.         jb      doint           ;No, skip it
  37.         mov     start,DX        ;Yes, fill in DCB structure
  38.         mov     number,CX
  39.         mov     buf,BX
  40.         mov     buf+2,DS
  41.         mov     cx,-1
  42.     IF  @DataSize               ;Point to DCB
  43.         mov     BX,@Data
  44.         mov     DS,BX
  45.     ENDIF
  46.         mov     bx,OFFSET start
  47. doint:  mov     AH,func         ;Read or Write?
  48.         cmp     AH,25h
  49.         jne     skip_1
  50.         int     25h             ;Read sector
  51.         jmp     skip_3
  52. skip_1: cmp     AH,26h
  53.         jne     skip_2
  54.         int     26h             ;Write sector
  55.         jmp     skip_3
  56. skip_2: stc
  57. skip_3: mov     AX,0            ;Set up no error return
  58.         jnc     bye             ;Error?
  59.         dec     AX              ;Yes, flag it
  60. bye:    add     SP,2            ;Int 25h leave the flags on the stack
  61.     IF  @DataSize
  62.         pop     DS              ;Restore DS in L & C models
  63.     ENDIF
  64.         ret
  65.  
  66. absdisk ENDP  
  67.  
  68.         end
  69.